home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 20 / AMIGAplus Sonderheft 20 (1999)(ICP)(DE)[!].iso / PublicDomain / Spiele / CoinMania / coinmania / CoinManiaInstaller < prev    next >
Text File  |  1999-01-01  |  11KB  |  344 lines
  1. (set @appname "COINMANIA")
  2. ;(set @user-level 2)
  3. (complete 0)
  4. (set NoHD 0)
  5. (set GotHD (exists "dh0:" (noreq)))
  6. (if (= GotHD NoHD)
  7.  ((message "\n\n\n\nUnable To Install\n\nCOINMANIA\n\nAs No Hard Disk Attached")
  8.    (exit (quiet)
  9.   )
  10.  )
  11. )
  12. (set D_Space 0)
  13. (set D_Space_Needed 500000)
  14. (while (< D_Space D_Space_Needed)
  15.  (set CM_Dest (askdir
  16.                 (prompt "Please Choose Where You Would Like\n"
  17.          "COIN MANIA - THE GAME\n"
  18.          "To Be Installed")
  19.         (help "      This Part Will Make A Directory Called:-\n"
  20.          "                      COINMANIA\n"
  21.          "            In The Directory You Select.\n\n"
  22.          "                 e.g If You Select:-\n"
  23.          "                         DH0:\n"
  24.          "              Then A Directory Called:\n"
  25.          "                    DH0:COINMANIA\n\n"
  26.          "Will Be Created And  COINMANIA - THE GAME And Most Of "
  27.          "The Files Related To It  Will Be Placed In This Newly "
  28.          "Created Directory So They Are Not Spread All Over The "
  29.          "            Device You Wish To Install To.")
  30.         (default @default-dest)
  31.           )
  32.  )
  33.  (set CM_Path (pathonly CM_Dest))
  34.  (set D_Space (getdiskspace CM_Path))
  35.  (if (< D_Space D_Space_Needed)
  36.   ((set Flag (askbool
  37.          (prompt "\n\n\n\nNot Enought Free Space On Device\n"
  38.                      "You Wish To Install To.\n\n"
  39.                      "Would You Like To Select Another Device?")
  40.          (help "")
  41.          )
  42.    )
  43.    (if (not Flag)
  44.         (exit (quiet))
  45.    )
  46.   )
  47.  )
  48. )
  49.  
  50. (set memneeded "700000")
  51. (set memneededone "1000000")
  52. (set freechip (database "graphics-mem"))
  53. (set allfreemem (database "total-mem"))
  54. (set diff (- freechip memneeded))
  55. (set diff1 (- freechip memneededone))
  56. (set diff2 (- allfreemem freechip))
  57. (set XtraSFX 0)
  58. (set Own_Music (askoptions
  59.           (prompt "Would You Like Your Own InGame Music\n"
  60.              "It Must Be In NOISETRACKER Format")
  61.         (help "\n  Select A Music File Which Will Replace The Default "
  62.               "    COINMANIA InGame Music, But Please Note That The\n"
  63.               "  Module Must Be In Noise/ProTracker !VBlank! Format\n"
  64.               "          ----------------------------------\n\n\n\n"
  65.               "   -----------------------------------------------\n"
  66.               " IMPORTANT: No Checking Is Done On The Module Format\n"
  67.               "  Until It Has Been Loaded  So If The Module Is Not\n"
  68.               " A NOISETRACKER Module Then It Will Not Play InGame.")        (choices " Use DEFAULT Game Music")
  69.            )
  70. )
  71. (set REPEAT_FLAG 0)
  72. (set YES 0)
  73. (set NO 1)
  74. (set Module_Name1 "")
  75. (set No_Module_Name "")
  76. (if (= Own_Music YES)
  77.  (while (= REPEAT_FLAG YES)
  78.   (set Module_Name (askfile
  79.              (prompt "Select Music File To Save As The New\nINGAME Music")
  80.              (help "\n  Select A Music File Which Will Replace The Default "
  81.                "    COINMANIA InGame Music, But Please Note That The\n"
  82.                "  Module Must Be In Noise/ProTracker !VBlank! Format\n"
  83.                "          ----------------------------------\n\n\n\n"
  84.                "   -----------------------------------------------\n"
  85.                " IMPORTANT: No Checking Is Done On The Module Format\n"
  86.                "  Until It Has Been Loaded  So If The Module Is Not\n"
  87.                " A NOISETRACKER Module Then It Will Not Play InGame.")
  88.              (default @default-dest)
  89.             )
  90.   )
  91.   (set Mod_Okay (exists (Module_Name) (noreq)))
  92.   (if (= Mod_Okay YES)
  93.    ((message "\n\n\nFile:\n\n\"" Module_Name ":" Module_Name1 "\"\n\nNot Found\n\n----------\nSelect Another File?")
  94.     (set REPEAT_FLAG YES)
  95.    )
  96.    (set REPEAT_FLAG NO)
  97.   )
  98.   (if (= REPEAT_FLAG NO)
  99.    (set Mod_Size (getsize Module_Name))
  100.    (set New_DFree (- D_Space_Needed 178000))
  101.    (set New_Size (+ New_DFree Mod_Size))
  102.    (set Max_Mod (- D_Space New_DFree))
  103.    (if (> New_Size D_Space)
  104.     (message "\n\nModule Name:\n" Module_Name "\n\nModule Size:\n" Mod_Size "\n\n"
  105.              "-------------\n"
  106.          "Not Enought Room On Device:\n" CM_Path "\n\nMax File Size Allowed Approx: " Max_Mod)
  107.     (set REPEAT_FLAG NO)
  108.    )
  109.   )
  110.  )
  111. )
  112. (set @default-dest CM_Dest)
  113. (if (= Own_Music YES)
  114.   (message "\nAre You Sure You Wish To Install\n\nC-O-I-N-M-A-N-I-A\n---------\nIn The Directory:\n\n " CM_Dest "\n-----"
  115.        "\n\nWith Your Own Music"
  116.        "\n\n** This Is Your LAST Chance To QUIT Before The **\n** Installation Process Is Started **")
  117.   (message "\n\nAre You Sure You Wish To Install\n\nC-O-I-N-M-A-N-I-A\n---------\nIn The Directory:\n\n " CM_Dest "\n-----"
  118.        "\n\n** This Is Your LAST Chance To QUIT Before The **\n** Installation Process Is Started **")
  119. )
  120. (askdisk (prompt "\n\n\n\n\nPlease Insert The Disk\nCheapware:\nInto Any Drive")
  121.  (help "")
  122.  (dest "CheapWare")
  123. )
  124. (set CM_CoinDir (tackon CM_Dest "Coinmania"))
  125. (set CM_Source ("Cheapware:Coinmania"))
  126. (set Mod_Okay (exists (CM_Source) (noreq)))
  127. (set IS_ERROR 0)
  128. (If (= Mod_Okay IS_ERROR)
  129.  ((message "\n\n\n\nSource Disk Is Not Set Up Correctly\n\n------------\n\nAborting Installation")
  130.   (exit (quiet))
  131.  )
  132. )
  133. (set Number_Of_Files 15)
  134. (set Current_File 0)
  135. (set File_Found 1)
  136. (set ERRORS 0)
  137. (Set File_Name "Nothing")
  138. (working "\nChecking Files For Existance:")
  139. (while (<> Current_File Number_Of_Files)
  140.  (set Current_File (+ Current_File 1))
  141.   (if (= Current_File 1)(set File_Name "Cheapware:Coinmania/Data/CMAbout1.PAK"))
  142.   (if (= Current_File 2)(set File_Name "Cheapware:Coinmania/Data/CMAbout2.PAK"))
  143.   (if (= Current_File 3)(set File_Name "Cheapware:Coinmania/Data/CMExtraMem.PAK"))
  144.   (if (= Current_File 4)(set File_Name "Cheapware:Coinmania/Data/CMCongratulations.PAK"))
  145.   (if (= Current_File 5)(set File_Name "Cheapware:Coinmania/Data/CMHelpPage.PAK"))
  146.  
  147.   (if (= Current_File 6)(set File_Name "Cheapware:Coinmania/Banks/GameB.BANK"))
  148.   (if (= Current_File 7)(set File_Name "Cheapware:Coinmania/Banks/GameI.BANK"))
  149.   (if (= Current_File 8)(set File_Name "Cheapware:Coinmania/Banks/HelpB.BANK"))
  150.   (if (= Current_File 9)(set File_Name "Cheapware:Coinmania/Banks/MenuB.BANK"))
  151.   (if (= Current_File 10)(set File_Name "Cheapware:Coinmania/Banks/MenuI.BANK"))
  152.   (if (= Current_File 11)
  153.    (if (= Own_Music YES)
  154.     (set File_Name Module_Name)
  155.     (set File_Name "Cheapware:Coinmania/Sounds/InGame.MUSIC")
  156.    )
  157.   )
  158.   (if (= Current_File 12)
  159.     (set File_Name "Cheapware:Coinmania/Sounds/Coinmania.SFX")
  160.   )
  161.   (if (= Current_File 13)
  162.     (set File_Name "Cheapware:Coinmania/Sounds/EndGame.MUSIC")
  163.   )
  164.   (if (= Current_File 14)
  165.     (set File_Name "Cheapware:Coinmania/Sounds/High.MUSIC")
  166.   )
  167.   (if (= Current_File 15)
  168.     (set File_Name "Cheapware:Fonts/Coinmania.font")
  169.   )
  170.   (set Flag (exists File_Name))
  171.   (if (<> Flag File_Found)
  172.    ((message "\n\n\nChecking Files For Existance:\n\nERROR: File Not Found\n\n"
  173.          "-----\n\nFileName: " File_Name)
  174.     (set ERRORS (+ ERRORS 1)
  175.    )
  176.    (working "\nChecking Files For Existance:\n\n\n"
  177.          "------------\n\n"
  178.         ERRORS " Error(s) Detected")
  179.   )
  180.  )
  181. )
  182. (if (>= ERRORS 1)
  183.  (abort ERRORS " File(s) Not Found!!!\n"
  184.            "Unable To Complete Installation Of\n\n"
  185.            "-- COINMANIA --\n\n"
  186.            "To\n\n" CM_CoinDir)
  187. )
  188. (complete 5)
  189. (set CM_Root (getdevice CM_CoinDir))
  190. (if (= CM_Root "DH0")
  191.     (set CM_Root ("DH0:"))
  192. )
  193. (if (= CM_Root "DH1")
  194.     (set CM_Root ("DH1:"))
  195. )
  196. (if (= CM_Root "RAM")
  197.     (set CM_Root ("RAM:"))
  198. )
  199. (set CM_DataDir (tackon CM_CoinDir "Data"))
  200. (set CM_BanksDir (tackon CM_CoinDir "Banks"))
  201. (set CM_SoundsDir (tackon CM_CoinDir "Sounds"))
  202. (set CM_Libs (tackon CM_Root "Libs"))
  203. (set CM_Fonts (tackon CM_Root "Fonts"))
  204. (complete 6)
  205. (makedir CM_CoinDir
  206.      (prompt "")
  207.      (help "")
  208. )
  209. (complete 8)
  210. (copyfiles (prompt "")
  211.        (infos)
  212.        (help "")
  213.        (source "Cheapware:Coinmania/Coinmania")
  214.        (dest CM_CoinDir)
  215. )
  216. (copyfiles (prompt "")
  217.        (infos)
  218.        (help "")
  219.        (source "Cheapware:Coinmania/Data")
  220.        (dest CM_DataDir)
  221.        (all)
  222. )
  223. (complete 10)
  224. (copyfiles (prompt "")
  225.        (infos)
  226.        (help "")
  227.        (source "Cheapware:Coinmania/Banks")
  228.        (dest CM_BanksDir)
  229.        (all)
  230. )
  231. (complete 20)
  232. (if (exists "Cheapware:Coinmania/Coinmania.High")
  233.  (copyfiles (prompt "")
  234.         (help "")
  235.         (source "Cheapware:Coinmania/Coinmania.High")
  236.         (dest CM_CoinDir)
  237.  )
  238. )
  239. (complete 25)
  240. (copylib (prompt "")
  241.      (help "")
  242.      (source "CheapWare:Libs/Amos.Library")
  243.      (dest CM_Libs)
  244. )
  245. (copyfiles (prompt "")
  246.        (help "")
  247.        (source "Cheapware:Fonts")
  248.        (dest CM_Fonts)
  249.        (all)
  250. )
  251. (complete 40)
  252. (copyfiles (prompt "")
  253.        (help "")
  254.        (source "Cheapware:Coinmania/Sounds/EndGame.Music")
  255.        (dest CM_SoundsDir)
  256. )
  257. (complete 50)
  258. (copyfiles (prompt "")
  259.        (help "")
  260.        (source "Cheapware:Coinmania/Sounds/High.Music")
  261.        (dest CM_SoundsDir)
  262. )
  263. (complete 60)
  264. (if (= Own_Music YES)
  265.  (copyfiles (prompt "")
  266.         (help "")
  267.         (source Module_Name)
  268.         (dest CM_SoundsDir)
  269.         (newname "InGame.MUSIC")
  270.  )
  271.  (copyfiles (prompt "")
  272.         (help "")
  273.         (source "Cheapware:Coinmania/Sounds/InGame.MUSIC")
  274.         (dest CM_SoundsDir)
  275.  )
  276. )
  277. (complete 70)
  278. (copyfiles (prompt "")
  279.        (help "")
  280.        (source "Cheapware:Coinmania/Sounds/Coinmania.SFX")
  281.        (dest CM_SoundsDir)
  282. )
  283. (complete 80)
  284. (copyfiles (prompt "")
  285.        (help "")
  286.        (source "Cheapware:Coinmania/Sounds/Intro.MUSIC")
  287.        (dest CM_SoundsDir)
  288. )
  289. (complete 90)
  290. (if (exists "Cheapware:Coinmania/Coinmania.Guide")
  291.  ((if (exists "Cheapware:Coinmania/CoinmaniaInstaller")
  292.   (set CopyExtras (askoptions
  293.           (prompt "Would You Like Any Other Of The\n"
  294.             "COINMANIA\n"
  295.             "Bits Copied To Your Hard Drive")
  296.         (help "")
  297.         (choices " COINMANIA Guide"
  298.              " HARD DRIVE Installer")))
  299.   (set CopyExtras (askoptions
  300.           (prompt "Would You Like Any Other Of The\n"
  301.             "COINMANIA\n"
  302.             "Bits Copied To Your Hard Drive")
  303.         (help "")
  304.         (choices " COINMANIA Guide")))))
  305.  (if (exists "Cheapware:Coinmania/CoinmaniaInstaller")
  306.   (set CopyExtras (askoptions
  307.           (prompt "Would You Like Any Other Of The\n"
  308.             "COINMANIA\n"
  309.             "Bits Copied To Your Hard Drive")
  310.         (help "")
  311.         (choices " HARD DRIVE Installer")))))
  312. (if (in CopyExtras 0)
  313.  (if (exists "Cheapware:Coinmania/Coinmania.guide")
  314.   (copyfiles (prompt "")
  315.          (help "")
  316.          (infos)
  317.          (source "Cheapware:Coinmania/Coinmania.Guide")
  318.          (dest CM_CoinDir))))
  319. (if (in CopyExtras 1)
  320.  (if (exists "Cheapware:Coinmania/CoinmaniaInstaller")
  321.   (copyfiles (prompt "")
  322.          (infos)
  323.          (help "")
  324.          (source "Cheapware:Coinmania/CoinmaniaInstaller")
  325.          (dest CM_CoinDir))))
  326. (complete 99)
  327. (message "\n\nNow Attempting To Edit File\n\n"
  328.      "--------\n"
  329.      "S:User-Startup\n"
  330.      "---------\n\n"
  331.      "To Include The Line\n\n"
  332.      "--------------------------\n"
  333.      "ASSIGN CoinMania: " CM_CoinDir)
  334. (startup "COINMANIA"
  335.      (prompt "Editing Startup-Sequence To Include Assign")
  336.      (help "")
  337.      (command "Assign Coinmania: " CM_CoinDir))
  338. (complete 100)
  339. (message "\n\n\n\nNow Please REBOOT Your Computer\n\n"
  340.      "To Play\n\n"
  341.      "<==---   ---==>\n"
  342.      "<-- COIN MANIA - The Game -->\n"
  343.      "<==---   ---==>")
  344.